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MM MM TTTTTTTTTT HH HH GGGGGGGG cccccccc 000000 NN NN JJ GGGGGGGG 

MM MM TTTTTTTTTT HH HH GGGGGGGG ccccccce 000000 NN NN JJ GGGGGGGG 

MMMM =OMMMM TT HH HH GG cc 00 00 NN NN JJ GG 

MMMM MMMM TT HH HH GG cc 00 00 NN NN JJ GG 

“mM 6M MM TT HH HH GG cc 00 00 NNNN NN JJ GG 

MM MM MM TT HH HH GG cc 00 00 NNNN NN JJ GG 
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MM MM TT HH HH GG GG CC 00 00 NN NN JJ JJ GG GG eeee 
MM MM TT HH HH GGGGGG ccccccce 000000 NN NN JJJJJJ GGGGGG eee 
MM MM TT HH HH GGGGGG ccccccce 000000 NN NN JJJJJJ GGGGGG eee 
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; pf AGILITY: MATH LIBRARY 
ABSTRACT: 


This module contains routine MTH$GCONJG: 
Return G COMPLEX*16 conjugate. 


; VERSION: 1 
HISTORY: 


; AUTHOR: 
Steven B. Lionel, 20-July-1979 


; MODIFIED BY: 
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-SBTTL HISTORY 3; Detailed Current Edit History 


: Edit History 
6 : 1-001 = Adapted from MTHSCONJG version 1-002. SBL 20-July-1979 
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a DECLARATIONS» o™/Uset® "SSEP=1986 1:38:42 EATMnTe. sReaArMocoNsG.man;1 28° (3) 


~SBTTL DECLARATIONS 


INCLUDE FILES: 


EXTERNAL SYMBOLS: 
NONE 


MACROS: 
NONE 


PSECT oeshe wide 
-PSECT _MTHSCODE PIC, SHR, EXE, NOWRT, LONG 


0000 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 


©0909 09 0909 09 09 098 NIN NINN NINN NNO A AAAAAAAOUN 
NOUS WN CO OOO NAUES WN ("OO ONAUS WO Oo 


Sooo ooooooooooooooooo 


SOoooooooooooooooo 
COOCooooooooooo: 


Sooooooooooo 


MTHSGCONJG 
1-008 
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RTNSEEONGE - A Q COMPLEX*16 conjuga mie 1 9:59:43 MTMRTL.SREIMTHGCONJG.MAR: 1 ° (4) 
~SBTTL MTHSGCONJG = return G COMPLEX*16 conjugate 
344 
; FUNCTIONAL DESCRIPTION: 
: Returns the co gion conjugate of COMPLEX*16 number (r,i). 
¢ ; Result is (r,-i). 
: CALLING SEQUENCE: 
; CALL MTHSGCONJG (result.wdce.r, arg.rdc.r) 
6 : INPUT PARAMETERS: 
00000008 arg = 8 ; G COMPLEX*16 argument by reference. 
> IMPLICIT INPUTS: 
3 : NONE 
99 ; OUTPUT PARAMETERS: 
00000004 4 y result = 4 ; G COMPLEX*16 result by reference 
0 IMPLICIT OUTPUTS: 
; NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 
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nag * | -ENTRY MTHSGCONJG “M<> 
50 BAC OD MOVL arg (AP) r6 3; argument address 
51 04 AC 00 MOVL result(AP), R1 > result address 
81 80 SOFD MOVG (RO)+, (RIS+ : real part 
61 60 52FD MNEGG (RO), (R1) 3; imaginary part 
04 RET 
END 


MTHSGCONJG 
Symbol table -SEP-1 
ARG = f 
MTHSGCONJG p RG 01 
RESULT 2 4 

poe remmmmemomarne + 

: Psect synopsis ! 

own o ammo n nena ae + 
PSECT name Allocation PSECT No. Attributes 
» OS , 0 -) NOPI USR CON ABS LCL 
_MTHSCODE atta 19:3 9 9-3 St: USR CON REL LCL 

Se ors 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization $3 8: if :00. 8 :00:00.68 
Command processing 1 3 ant :00:03.04 
ad tabl t “3 ; p 0: 6; 00 
ym able sor . :00:00. 
Pass 2 3 ie ; :00:00. 
Symbol table output 6: OF R88) 
Psect synopsis output 0: 0:9 0:00:00. . 
Cross-reference output a 0:00:0 8380: 80-2 
Assembler run totals 246 0:00:06.54 


The werenes et Limit was 900 pages. 
355 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

| all were 10 pages of symbol table space allocated § to hold 3 non-local and 6 local symbols. 
135 source Lines were read in Pass 1, produci ng object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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! Macro Library statistics ; 


jnoonntiae eer ercn ee scene ome eee 


Macro Library name Macros defined 
_8255$DUA28: CSYSLIBSTARLET. MLB;2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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